home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / Userprep / Slides.prp < prev    next >
Text File  |  1996-08-24  |  6KB  |  268 lines
  1. % Begin UserPrep file.
  2. %
  3. % File : Slides.prp
  4. % FreeHand 7 UserPrep file.
  5. %
  6. % UserPrep file for improved radial and graduated fill output
  7. % primarily targeted at film recorders with the VBS Professional
  8. % output manager with FreeHand 7.
  9. %
  10. % The behavior corrected is radial and graduated fills in some 
  11. % cases "breaking up" and allowing some of the background color
  12. % to show through the radial or graduated fill. This file 
  13. % corrects this behavior by overlapping the filled areas that 
  14. % create the fill, filling the leaks. We do not do this normally
  15. % as it is not necessary with most printers, and does slow down
  16. % printing slightly.
  17. % To enable this file, select it in the Print Setup dialog UserPrep popup,  
  18. % or set the preference in the Expert Input/Output options for
  19. % UserPrep to Slides.prp.
  20. % To verify that this is enabled, print to file, and look for 
  21. % Slides.prp in the print file. If you find this text, 
  22. % it is enabled.
  23. %
  24. % This UserPrep file will cause graduated and radial fills to 
  25. % print more slowly (approximately 10% slower, data dependent).
  26. %
  27. % Version 1.0 Nov. 25, 1994
  28. % John Ahlquist
  29. % Copyright (C) Macromedia Inc. 1995, 1996  All rights reserved.
  30.  
  31. /_lfp4 {
  32.  /iosv inkoverprint def
  33.  /cosv currentoverprint def
  34.  /yt xdf       
  35.  /xt xdf       
  36.  /ang xdf      
  37.  storerect
  38.  /taperfcn xdf
  39.  /k2 xdf /y2 xdf /m2 xdf /c2 xdf
  40.  /k1 xdf /y1 xdf /m1 xdf /c1 xdf
  41.  c1 c2 sub abs
  42.  m1 m2 sub abs
  43.  y1 y2 sub abs
  44.  k1 k2 sub abs
  45.  maxcolor      
  46.  calcgraysteps mul abs round  
  47.  height abs adjnumsteps   
  48.  dup 2 lt {pop 1} if    
  49.  1 sub /numsteps1 xdf
  50.  currentflat mark    
  51.  currentflat clipflatness  
  52.  /delta top bottom sub numsteps1 1 add div def 
  53.  /right right left sub def  
  54.  /botsv top delta sub def  
  55.  {
  56. {
  57. W
  58. xt yt translate 
  59. ang rotate
  60. xt neg yt neg translate 
  61. dup setflat 
  62. /bottom botsv def
  63. 0 1 numsteps1 
  64. {
  65. numsteps1 dup 0 eq {pop 0.5 } { div } ifelse 
  66. taperfcn /frac xdf
  67. bc4 0 c2 c1 sub frac mul c1 add put
  68. bc4 1 m2 m1 sub frac mul m1 add put
  69. bc4 2 y2 y1 sub frac mul y1 add put
  70. bc4 3 k2 k1 sub frac mul k1 add put
  71. bc4 vc
  72. 1 index setflat 
  73. { 
  74. mark {newpath left bottom right delta delta 4 div add rectfill}stopped % add 1/4 delta overlap JBA 11/25/94
  75. {cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
  76. {cleartomark exit}ifelse
  77. }loop
  78. /bottom bottom delta sub def
  79. }for
  80. }
  81. gsave stopped grestore
  82. {exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
  83. {exit}ifelse
  84.  }loop
  85.  cleartomark setflat
  86.  iosv setinkoverprint
  87.  cosv setoverprint
  88. }bdf
  89. /bcs [0 0] def 
  90. /_lfs4 {
  91.  /iosv inkoverprint def
  92.  /cosv currentoverprint def
  93.  /yt xdf       
  94.  /xt xdf       
  95.  /ang xdf      
  96.  storerect
  97.  /taperfcn xdf
  98.  /tint2 xdf      
  99.  /tint1 xdf      
  100.  bcs exch 1 exch put    
  101.  tint1 tint2 sub abs    
  102.  bcs 1 get maxspot    
  103.  calcgraysteps mul abs round  
  104.  height abs adjnumsteps   
  105.  dup 2 lt {pop 2} if    
  106.  1 sub /numsteps1 xdf
  107.  currentflat mark    
  108.  currentflat clipflatness  
  109.  /delta top bottom sub numsteps1 1 add div def 
  110.  /right right left sub def  
  111.  /botsv top delta sub def  
  112.  {
  113. {
  114. W
  115. xt yt translate 
  116. ang rotate
  117. xt neg yt neg translate 
  118. dup setflat 
  119. /bottom botsv def
  120. 0 1 numsteps1 
  121. {
  122. numsteps1 div taperfcn /frac xdf
  123. bcs 0
  124. 1.0 tint2 tint1 sub frac mul tint1 add sub
  125. put bcs vc
  126. 1 index setflat 
  127. { 
  128. mark {newpath left bottom right delta delta 4 div add rectfill}stopped % add 1/4 delta overlap JBA 11/25/94
  129. {cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
  130. {cleartomark exit}ifelse
  131. }loop
  132. /bottom bottom delta sub def
  133. }for
  134. }
  135. gsave stopped grestore
  136. {exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
  137. {exit}ifelse
  138.  }loop
  139.  cleartomark setflat
  140.  iosv setinkoverprint
  141.  cosv setoverprint
  142. }bdf
  143. /_rfs4 {
  144.  /iosv inkoverprint def
  145.  /cosv currentoverprint def
  146.  /tint2 xdf      
  147.  /tint1 xdf      
  148.  bcs exch 1 exch put    
  149.  /radius xdf      
  150.  /yt xdf       
  151.  /xt xdf       
  152.  tint1 tint2 sub abs    
  153.  bcs 1 get maxspot    
  154.  calcgraysteps mul abs round  
  155.  radius abs adjnumsteps   
  156.  dup 2 lt {pop 2} if    
  157.  1 sub /numsteps1 xdf
  158.  radius numsteps1 div 2 div /halfstep xdf 
  159.  currentflat mark    
  160.  currentflat clipflatness  
  161.  {
  162. {
  163. dup setflat 
  164. W 
  165. 0 1 numsteps1 
  166. {
  167. dup /radindex xdf
  168. numsteps1 div /frac xdf
  169. bcs 0
  170. tint2 tint1 sub frac mul tint1 add
  171. put bcs vc
  172. 1 index setflat 
  173. { 
  174. newpath mark xt yt radius 1 frac sub mul halfstep add 0 360
  175. { arc
  176. radindex numsteps1 ne 
  177. {
  178. xt yt 
  179. radindex 1 add numsteps1 
  180. div 1 exch sub 
  181. radius mul halfstep add halfstep 2 div sub % add 1/4 step overlap JBA 11/25/94
  182. dup xt add yt moveto 
  183. 360 0 arcn 
  184. } if
  185. fill
  186. }stopped
  187. {cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
  188. {cleartomark exit}ifelse
  189. }loop
  190. }for
  191. }
  192. gsave stopped grestore
  193. {exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
  194. {exit}ifelse
  195.  }loop
  196.  cleartomark setflat
  197.  iosv setinkoverprint
  198.  cosv setoverprint
  199. }bdf
  200.  
  201.  
  202. /_rfp4 {
  203.  /iosv inkoverprint def
  204.  /cosv currentoverprint def
  205.  /k2 xdf /y2 xdf /m2 xdf /c2 xdf
  206.  /k1 xdf /y1 xdf /m1 xdf /c1 xdf
  207.  /radius xdf      
  208.  /yt xdf       
  209.  /xt xdf       
  210.  c1 c2 sub abs
  211.  m1 m2 sub abs
  212.  y1 y2 sub abs
  213.  k1 k2 sub abs
  214.  maxcolor      
  215.  calcgraysteps mul abs round  
  216.  radius abs adjnumsteps   
  217.  dup 2 lt {pop 1} if    
  218.  1 sub /numsteps1 xdf
  219.  radius numsteps1 dup 0 eq {pop} {div} ifelse 
  220.  2 div /halfstep xdf 
  221.  currentflat mark    
  222.  currentflat clipflatness  
  223.  {
  224. {
  225. dup setflat 
  226. W 
  227. 0 1 numsteps1 
  228. {
  229. dup /radindex xdf
  230. numsteps1 dup 0 eq {pop 0.5 } { div } ifelse 
  231. /frac xdf
  232. bc4 0 c2 c1 sub frac mul c1 add put
  233. bc4 1 m2 m1 sub frac mul m1 add put
  234. bc4 2 y2 y1 sub frac mul y1 add put
  235. bc4 3 k2 k1 sub frac mul k1 add put
  236. bc4 vc
  237. 1 index setflat 
  238. { 
  239. newpath mark xt yt radius 1 frac sub mul halfstep add 0 360
  240. { arc
  241. radindex numsteps1 ne 
  242. {
  243. xt yt 
  244. radindex 1 add 
  245. numsteps1 dup 0 eq {pop} {div} ifelse 
  246. 1 exch sub 
  247. radius mul halfstep add halfstep 2 div sub % add 1/4 step overlap JBA 11/25/94
  248. dup xt add yt moveto 
  249. 360 0 arcn 
  250. } if
  251. fill
  252. }stopped
  253. {cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
  254. {cleartomark exit}ifelse
  255. }loop
  256. }for
  257. }
  258. gsave stopped grestore
  259. {exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
  260. {exit}ifelse
  261.  }loop
  262.  cleartomark setflat
  263.  iosv setinkoverprint
  264.  cosv setoverprint
  265. }bdf
  266.  
  267. % End UserPrep
  268.